/************************************************************************/
/*																		*/
/* PolSARproSim Version C1b  Forest Synthetic Aperture Radar Simulation	*/
/* Copyright (C) 2007 Mark L. Williams									*/
/*																		*/
/* This program is free software; you may redistribute it and/or		*/
/* modify it under the terms of the GNU General Public License			*/
/* as published by the Free Software Foundation; either version 2		*/
/* of the License, or (at your option) any later version.				*/
/*																		*/
/* This program is distributed in the hope that it will be useful,		*/
/* but WITHOUT ANY WARRANTY; without even the implied warranty of		*/
/* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.					*/
/* See the GNU General Public License for more details.					*/
/*																		*/
/* You should have received a copy of the GNU General Public License	*/
/* along with this program; if not, write to the Free Software			*/
/* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,			*/
/* MA  02110-1301, USA. (http://www.gnu.org/copyleft/gpl.html)			*/
/*																		*/
/************************************************************************/
/* 
 * Author      : Mark L. Williams
 * Module      : JLkp.c
 * Revision    : Version C1b 
 * Date        : September, 2007
 *
 */
#include	"JLkp.h"

int			Initialise_Standard_Jnlookup		(Jn_Lookup *pJLkp)
{
 pJLkp->dx			= 0.3;
 pJLkp->nmax		= 100;
 pJLkp->pJ0			= (double*) calloc (pJLkp->nmax+3, sizeof (double));
 pJLkp->pJ1			= (double*) calloc (pJLkp->nmax+3, sizeof (double));
 pJLkp->pJ2			= (double*) calloc (pJLkp->nmax+3, sizeof (double));
 pJLkp->pJ3			= (double*) calloc (pJLkp->nmax+3, sizeof (double));
 pJLkp->pJ4			= (double*) calloc (pJLkp->nmax+3, sizeof (double));
 pJLkp->pJ5			= (double*) calloc (pJLkp->nmax+3, sizeof (double));
 pJLkp->pJ6			= (double*) calloc (pJLkp->nmax+3, sizeof (double));
 pJLkp->pJ7			= (double*) calloc (pJLkp->nmax+3, sizeof (double));
 pJLkp->pJ8			= (double*) calloc (pJLkp->nmax+3, sizeof (double));
 pJLkp->pJ9			= (double*) calloc (pJLkp->nmax+3, sizeof (double));
 pJLkp->pJ[0]		= pJLkp->pJ0;
 pJLkp->pJ[1]		= pJLkp->pJ1;
 pJLkp->pJ[2]		= pJLkp->pJ2;
 pJLkp->pJ[3]		= pJLkp->pJ3;
 pJLkp->pJ[4]		= pJLkp->pJ4;
 pJLkp->pJ[5]		= pJLkp->pJ5;
 pJLkp->pJ[6]		= pJLkp->pJ6;
 pJLkp->pJ[7]		= pJLkp->pJ7;
 pJLkp->pJ[8]		= pJLkp->pJ8;
 pJLkp->pJ[9]		= pJLkp->pJ9;
 pJLkp->pJ0[0]		= 9.1200486e-001;
 pJLkp->pJ1[0]		= -2.8670099e-001;
 pJLkp->pJ2[0]		= 4.3665097e-002;
 pJLkp->pJ3[0]		= -4.3996567e-003;
 pJLkp->pJ4[0]		= 3.3147037e-004;
 pJLkp->pJ5[0]		= -1.9948195e-005;
 pJLkp->pJ6[0]		= 9.9955512e-007;
 pJLkp->pJ7[0]		= -4.2907121e-008;
 pJLkp->pJ8[0]		= 1.6110328e-009;
 pJLkp->pJ9[0]		= -5.3754894e-011;
 pJLkp->pJ0[1]		= 9.7762625e-001;
 pJLkp->pJ1[1]		= -1.4831882e-001;
 pJLkp->pJ2[1]		= 1.1165862e-002;
 pJLkp->pJ3[1]		= -5.5934305e-004;
 pJLkp->pJ4[1]		= 2.0999006e-005;
 pJLkp->pJ5[1]		= -6.3044326e-007;
 pJLkp->pJ6[1]		= 1.5769533e-008;
 pJLkp->pJ7[1]		= -3.3805443e-010;
 pJLkp->pJ8[1]		= 6.3405025e-012;
 pJLkp->pJ9[1]		= -1.0570147e-013;
 pJLkp->pJ0[2]		= 1.0000000e+000;
 pJLkp->pJ1[2]		= 0.0000000e+000;
 pJLkp->pJ2[2]		= 0.0000000e+000;
 pJLkp->pJ3[2]		= 0.0000000e+000;
 pJLkp->pJ4[2]		= 0.0000000e+000;
 pJLkp->pJ5[2]		= 0.0000000e+000;
 pJLkp->pJ6[2]		= 0.0000000e+000;
 pJLkp->pJ7[2]		= 0.0000000e+000;
 pJLkp->pJ8[2]		= 0.0000000e+000;
 pJLkp->pJ9[2]		= 0.0000000e+000;
 pJLkp->pJ0[3]		= 9.7762625e-001;
 pJLkp->pJ1[3]		= 1.4831882e-001;
 pJLkp->pJ2[3]		= 1.1165862e-002;
 pJLkp->pJ3[3]		= 5.5934305e-004;
 pJLkp->pJ4[3]		= 2.0999006e-005;
 pJLkp->pJ5[3]		= 6.3044326e-007;
 pJLkp->pJ6[3]		= 1.5769533e-008;
 pJLkp->pJ7[3]		= 3.3805443e-010;
 pJLkp->pJ8[3]		= 6.3405025e-012;
 pJLkp->pJ9[3]		= 1.0570147e-013;
 pJLkp->pJ0[4]		= 9.1200486e-001;
 pJLkp->pJ1[4]		= 2.8670099e-001;
 pJLkp->pJ2[4]		= 4.3665097e-002;
 pJLkp->pJ3[4]		= 4.3996567e-003;
 pJLkp->pJ4[4]		= 3.3147037e-004;
 pJLkp->pJ5[4]		= 1.9948195e-005;
 pJLkp->pJ6[4]		= 9.9955512e-007;
 pJLkp->pJ7[4]		= 4.2907121e-008;
 pJLkp->pJ8[4]		= 1.6110328e-009;
 pJLkp->pJ9[4]		= 5.3754894e-011;
 pJLkp->pJ0[5]		= 8.0752380e-001;
 pJLkp->pJ1[5]		= 4.0594955e-001;
 pJLkp->pJ2[5]		= 9.4586304e-002;
 pJLkp->pJ3[5]		= 1.4434028e-002;
 pJLkp->pJ4[5]		= 1.6405522e-003;
 pJLkp->pJ5[5]		= 1.4865802e-004;
 pJLkp->pJ6[5]		= 1.1203565e-005;
 pJLkp->pJ7[5]		= 7.2285047e-007;
 pJLkp->pJ8[5]		= 4.0775279e-008;
 pJLkp->pJ9[5]		= 2.0433700e-009;
 pJLkp->pJ0[6]		= 6.7113274e-001;
 pJLkp->pJ1[6]		= 4.9828906e-001;
 pJLkp->pJ2[6]		= 1.5934902e-001;
 pJLkp->pJ3[6]		= 3.2874337e-002;
 pJLkp->pJ4[6]		= 5.0226663e-003;
 pJLkp->pJ5[6]		= 6.1010492e-004;
 pJLkp->pJ6[6]		= 6.1541421e-005;
 pJLkp->pJ7[6]		= 5.3092822e-006;
 pJLkp->pJ8[6]		= 4.0020526e-007;
 pJLkp->pJ9[6]		= 2.6787855e-008;
 pJLkp->pJ0[7]		= 5.1182767e-001;
 pJLkp->pJ1[7]		= 5.5793651e-001;
 pJLkp->pJ2[7]		= 2.3208768e-001;
 pJLkp->pJ3[7]		= 6.0963951e-002;
 pJLkp->pJ4[7]		= 1.1768132e-002;
 pJLkp->pJ5[7]		= 1.7994218e-003;
 pJLkp->pJ6[7]		= 2.2801270e-004;
 pJLkp->pJ7[7]		= 2.4679796e-005;
 pJLkp->pJ8[7]		= 2.3320653e-006;
 pJLkp->pJ9[7]		= 1.9556738e-007;
 pJLkp->pJ0[8]		= 3.3998641e-001;
 pJLkp->pJ1[8]		= 5.8151695e-001;
 pJLkp->pJ2[8]		= 3.0614359e-001;
 pJLkp->pJ3[8]		= 9.8802016e-002;
 pJLkp->pJ4[8]		= 2.3196517e-002;
 pJLkp->pJ5[8]		= 4.2936149e-003;
 pJLkp->pJ6[8]		= 6.5689910e-004;
 pJLkp->pJ7[8]		= 8.5712462e-005;
 pJLkp->pJ8[8]		= 9.7533815e-006;
 pJLkp->pJ9[8]		= 9.8426264e-007;
 pJLkp->pJ0[9]		= 1.6660698e-001;
 pJLkp->pJ1[9]		= 5.6829214e-001;
 pJLkp->pJ2[9]		= 3.7462362e-001;
 pJLkp->pJ3[9]		= 1.4527668e-001;
 pJLkp->pJ4[9]		= 4.0452586e-002;
 pJLkp->pJ5[9]		= 8.8284171e-003;
 pJLkp->pJ6[9]		= 1.5874951e-003;
 pJLkp->pJ7[9]		= 2.4298333e-004;
 pJLkp->pJ8[9]		= 3.2393808e-005;
 pJLkp->pJ9[9]		= 3.8266325e-006;
 pJLkp->pJ0[10]		= 2.5076848e-003;
 pJLkp->pJ1[10]		= 5.2018527e-001;
 pJLkp->pJ2[10]		= 4.3098004e-001;
 pJLkp->pJ3[10]		= 1.9811481e-001;
 pJLkp->pJ4[10]		= 6.4306957e-002;
 pJLkp->pJ5[10]		= 1.6241724e-002;
 pJLkp->pJ6[10]		= 3.3668927e-003;
 pJLkp->pJ7[10]		= 5.9273978e-004;
 pJLkp->pJ8[10]		= 9.0756004e-005;
 pJLkp->pJ9[10]		= 1.2300244e-005;
 pJLkp->pJ0[11]		= -1.4244937e-001;
 pJLkp->pJ1[11]		= 4.4160138e-001;
 pJLkp->pJ2[11]		= 4.6956150e-001;
 pJLkp->pJ3[11]		= 2.5404533e-001;
 pJLkp->pJ4[11]		= 9.4983590e-002;
 pJLkp->pJ5[11]		= 2.7387567e-002;
 pJLkp->pJ6[11]		= 6.4518427e-003;
 pJLkp->pJ7[11]		= 1.2872898e-003;
 pJLkp->pJ8[11]		= 2.2299338e-004;
 pJLkp->pJ9[11]		= 3.4152412e-005;
 pJLkp->pJ0[12]		= -2.6005196e-001;
 pJLkp->pJ1[12]		= 3.3905896e-001;
 pJLkp->pJ2[12]		= 4.8609126e-001;
 pJLkp->pJ3[12]		= 3.0906286e-001;
 pJLkp->pJ4[12]		= 1.3203418e-001;
 pJLkp->pJ5[12]		= 4.3028435e-002;
 pJLkp->pJ6[12]		= 1.1393932e-002;
 pJLkp->pJ7[12]		= 2.5472945e-003;
 pJLkp->pJ8[12]		= 4.9344178e-004;
 pJLkp->pJ9[12]		= 8.4395021e-005;
 pJLkp->pJ0[13]		= -3.4429626e-001;
 pJLkp->pJ1[13]		= 2.2066345e-001;
 pJLkp->pJ2[13]		= 4.7803169e-001;
 pJLkp->pJ3[13]		= 3.5876890e-001;
 pJLkp->pJ4[13]		= 1.7427539e-001;
 pJLkp->pJ5[13]		= 6.3716909e-002;
 pJLkp->pJ6[13]		= 1.8806149e-002;
 pJLkp->pJ7[13]		= 4.6690886e-003;
 pJLkp->pJ8[13]		= 1.0021053e-003;
 pJLkp->pJ9[13]		= 1.8960356e-004;
 pJLkp->pJ0[14]		= -3.9176898e-001;
 pJLkp->pJ1[14]		= 9.5465547e-002;
 pJLkp->pJ2[14]		= 4.4480540e-001;
 pJLkp->pJ3[14]		= 3.9876267e-001;
 pJLkp->pJ4[14]		= 2.1979906e-001;
 pJLkp->pJ5[14]		= 8.9679676e-002;
 pJLkp->pJ6[14]		= 2.9311154e-002;
 pJLkp->pJ7[14]		= 8.0241700e-003;
 pJLkp->pJ8[14]		= 1.8939518e-003;
 pJLkp->pJ9[14]		= 3.9339374e-004;
 pJLkp->pJ0[15]		= -4.0182601e-001;
 pJLkp->pJ1[15]		= -2.7244040e-002;
 pJLkp->pJ2[15]		= 3.8785471e-001;
 pJLkp->pJ3[15]		= 4.2504374e-001;
 pJLkp->pJ4[15]		= 2.6605874e-001;
 pJLkp->pJ5[15]		= 1.2071778e-001;
 pJLkp->pJ6[15]		= 4.3474016e-002;
 pJLkp->pJ7[15]		= 1.3048428e-002;
 pJLkp->pJ8[15]		= 3.3664932e-003;
 pJLkp->pJ9[15]		= 7.6282673e-004;
 pJLkp->pJ0[16]		= -3.7655705e-001;
 pJLkp->pJ1[16]		= -1.3864694e-001;
 pJLkp->pJ2[16]		= 3.1053470e-001;
 pJLkp->pJ3[16]		= 4.3439427e-001;
 pJLkp->pJ4[16]		= 3.1002855e-001;
 pJLkp->pJ5[16]		= 1.5613630e-001;
 pJLkp->pJ6[16]		= 6.1724537e-002;
 pJLkp->pJ7[16]		= 2.0219523e-002;
 pJLkp->pJ8[16]		= 5.6738731e-003;
 pJLkp->pJ9[16]		= 1.3952316e-003;
 pJLkp->pJ0[17]		= -3.2054251e-001;
 pJLkp->pJ1[17]		= -2.3106043e-001;
 pJLkp->pJ2[17]		= 2.1784898e-001;
 pJLkp->pJ3[17]		= 4.2470397e-001;
 pJLkp->pJ4[17]		= 3.4842298e-001;
 pJLkp->pJ5[17]		= 1.9471466e-001;
 pJLkp->pJ6[17]		= 8.4276261e-002;
 pJLkp->pJ7[17]		= 3.0022038e-002;
 pJLkp->pJ8[17]		= 9.1256340e-003;
 pJLkp->pJ9[17]		= 2.4246609e-003;
 pJLkp->pJ0[18]		= -2.4042533e-001;
 pJLkp->pJ1[18]		= -2.9849986e-001;
 pJLkp->pJ2[18]		= 1.1605039e-001;
 pJLkp->pJ3[18]		= 3.9520852e-001;
 pJLkp->pJ4[18]		= 3.7796026e-001;
 pJLkp->pJ5[18]		= 2.3472525e-001;
 pJLkp->pJ6[18]		= 1.1105067e-001;
 pJLkp->pJ7[18]		= 4.2901437e-002;
 pJLkp->pJ8[18]		= 1.4078517e-002;
 pJLkp->pJ9[18]		= 4.0269534e-003;
 pJLkp->pJ0[19]		= -1.4433475e-001;
 pJLkp->pJ1[19]		= -3.3709720e-001;
 pJLkp->pJ2[19]		= 1.2139768e-002;
 pJLkp->pJ3[19]		= 3.4661859e-001;
 pJLkp->pJ4[19]		= 3.9564681e-001;
 pJLkp->pJ5[19]		= 2.7400385e-001;
 pJLkp->pJ6[19]		= 1.4161565e-001;
 pJLkp->pJ7[19]		= 5.9209450e-002;
 pJLkp->pJ8[19]		= 2.0920089e-002;
 pJLkp->pJ9[19]		= 6.4222027e-003;
 pJLkp->pJ0[20]		= -4.1210101e-002;
 pJLkp->pJ1[20]		= -3.4534479e-001;
 pJLkp->pJ2[20]		= -8.6695377e-002;
 pJLkp->pJ3[20]		= 2.8112599e-001;
 pJLkp->pJ4[20]		= 3.9905759e-001;
 pJLkp->pJ5[20]		= 3.1007044e-001;
 pJLkp->pJ6[20]		= 1.7514692e-001;
 pJLkp->pJ7[20]		= 7.9144949e-002;
 pJLkp->pJ8[20]		= 3.0043684e-002;
 pJLkp->pJ9[20]		= 9.8733752e-003;
 pJLkp->pJ0[21]		= 5.9920013e-002;
 pJLkp->pJ1[21]		= -3.2414768e-001;
 pJLkp->pJ2[21]		= -1.7365604e-001;
 pJLkp->pJ3[21]		= 2.0228379e-001;
 pJLkp->pJ4[21]		= 3.8658635e-001;
 pJLkp->pJ5[21]		= 3.4029354e-001;
 pJLkp->pJ6[21]		= 2.1041986e-001;
 pJLkp->pJ7[21]		= 1.0269563e-001;
 pJLkp->pJ8[21]		= 4.1815035e-002;
 pJLkp->pJ9[21]		= 1.4679902e-002;
 pJLkp->pJ0[22]		= 1.5064526e-001;
 pJLkp->pJ1[22]		= -2.7668386e-001;
 pJLkp->pJ2[22]		= -2.4287321e-001;
 pJLkp->pJ3[22]		= 1.1476838e-001;
 pJLkp->pJ4[22]		= 3.5764160e-001;
 pJLkp->pJ5[22]		= 3.6208708e-001;
 pJLkp->pJ6[22]		= 2.4583686e-001;
 pJLkp->pJ7[22]		= 1.2958665e-001;
 pJLkp->pJ8[22]		= 5.6531991e-002;
 pJLkp->pJ9[22]		= 2.1165324e-002;
 pJLkp->pJ0[23]		= 2.2381201e-001;
 pJLkp->pJ1[23]		= -2.0808694e-001;
 pJLkp->pJ2[23]		= -2.8987135e-001;
 pJLkp->pJ3[23]		= 2.4041639e-002;
 pJLkp->pJ4[23]		= 3.1276815e-001;
 pJLkp->pJ5[23]		= 3.7312427e-001;
 pJLkp->pJ6[23]		= 2.7949259e-001;
 pJLkp->pJ7[23]		= 1.5924257e-001;
 pJLkp->pJ8[23]		= 7.4379796e-002;
 pJLkp->pJ9[23]		= 2.9658494e-002;
 pJLkp->pJ0[24]		= 2.7404336e-001;
 pJLkp->pJ1[24]		= -1.2498017e-001;
 pJLkp->pJ2[24]		= -3.1191614e-001;
 pJLkp->pJ3[24]		= -6.4059915e-002;
 pJLkp->pJ4[24]		= 2.5367985e-001;
 pJLkp->pJ5[24]		= 3.7155064e-001;
 pJLkp->pJ6[24]		= 3.0927567e-001;
 pJLkp->pJ7[24]		= 1.9076876e-001;
 pJLkp->pJ8[24]		= 9.5385335e-002;
 pJLkp->pJ9[24]		= 4.0468415e-002;
 pJLkp->pJ0[25]		= 2.9810204e-001;
 pJLkp->pJ1[25]		= -3.4902098e-002;
 pJLkp->pJ2[25]		= -3.0821859e-001;
 pJLkp->pJ3[25]		= -1.4377534e-001;
 pJLkp->pJ4[25]		= 1.8319655e-001;
 pJLkp->pJ5[25]		= 3.5617714e-001;
 pJLkp->pJ6[25]		= 3.3300220e-001;
 pJLkp->pJ7[25]		= 2.2295713e-001;
 pJLkp->pJ8[25]		= 1.1937458e-001;
 pJLkp->pJ9[25]		= 5.3853493e-002;
 pJLkp->pJ0[26]		= 2.9507070e-001;
 pJLkp->pJ1[26]		= 5.4327418e-002;
 pJLkp->pJ2[26]		= -2.7997975e-001;
 pJLkp->pJ3[26]		= -2.0987172e-001;
 pJLkp->pJ4[26]		= 1.0508664e-001;
 pJLkp->pJ5[26]		= 3.2663466e-001;
 pJLkp->pJ6[26]		= 3.4857261e-001;
 pJLkp->pJ7[26]		= 2.5431968e-001;
 pJLkp->pJ8[26]		= 1.4593789e-001;
 pJLkp->pJ9[26]		= 6.9986742e-002;
 pJLkp->pJ0[27]		= 2.6633966e-001;
 pJLkp->pJ1[27]		= 1.3524842e-001;
 pJLkp->pJ2[27]		= -2.3027341e-001;
 pJLkp->pJ3[27]		= -2.5806091e-001;
 pJLkp->pJ4[27]		= 2.3824683e-002;
 pJLkp->pJ5[27]		= 2.8347391e-001;
 pJLkp->pJ6[27]		= 3.5414052e-001;
 pJLkp->pJ7[27]		= 2.8315093e-001;
 pJLkp->pJ8[27]		= 1.7440789e-001;
 pJLkp->pJ9[27]		= 8.8919228e-002;
 pJLkp->pJ0[28]		= 2.1540781e-001;
 pJLkp->pJ1[28]		= 2.0135687e-001;
 pJLkp->pJ2[28]		= -1.6377784e-001;
 pJLkp->pJ3[28]		= -2.8534551e-001;
 pJLkp->pJ4[28]		= -5.5718700e-002;
 pJLkp->pJ5[28]		= 2.2819812e-001;
 pJLkp->pJ6[28]		= 3.4828040e-001;
 pJLkp->pJ7[28]		= 3.0761787e-001;
 pJLkp->pJ8[28]		= 2.0385425e-001;
 pJLkp->pJ9[28]		= 1.1054469e-001;
 pJLkp->pJ0[29]		= 1.4751745e-001;
 pJLkp->pJ1[29]		= 2.4760777e-001;
 pJLkp->pJ2[29]		= -8.6379734e-002;
 pJLkp->pJ3[29]		= -2.9026443e-001;
 pJLkp->pJ4[29]		= -1.2863095e-001;
 pJLkp->pJ5[29]		= 1.6322151e-001;
 pJLkp->pJ6[29]		= 3.3013899e-001;
 pJLkp->pJ7[29]		= 3.2587329e-001;
 pJLkp->pJ8[29]		= 2.3309879e-001;
 pJLkp->pJ9[29]		= 1.3456877e-001;
 pJLkp->pJ0[30]		= 6.9157262e-002;
 pJLkp->pJ1[30]		= 2.7078627e-001;
 pJLkp->pJ2[30]		= -4.6843408e-003;
 pJLkp->pJ3[30]		= -2.7301691e-001;
 pJLkp->pJ4[30]		= -1.9032774e-001;
 pJLkp->pJ5[30]		= 9.1752397e-002;
 pJLkp->pJ6[30]		= 2.9955678e-001;
 pJLkp->pJ7[30]		= 3.3618586e-001;
 pJLkp->pJ8[30]		= 2.6075299e-001;
 pJLkp->pJ9[30]		= 1.6048650e-001;
 pJLkp->pJ0[31]		= -1.2522732e-002;
 pJLkp->pJ1[31]		= 2.6971902e-001;
 pJLkp->pJ2[31]		= 7.4527106e-002;
 pJLkp->pJ3[31]		= -2.3545369e-001;
 pJLkp->pJ4[31]		= -2.3690896e-001;
 pJLkp->pJ5[31]		= 1.7606369e-002;
 pJLkp->pJ6[31]		= 2.5714617e-001;
 pJLkp->pJ7[31]		= 3.3707800e-001;
 pJLkp->pJ8[31]		= 2.8527820e-001;
 pJLkp->pJ9[31]		= 1.8757156e-001;
 pJLkp->pJ0[32]		= -9.0333611e-002;
 pJLkp->pJ1[32]		= 2.4531179e-001;
 pJLkp->pJ2[32]		= 1.4484734e-001;
 pJLkp->pJ3[32]		= -1.8093519e-001;
 pJLkp->pJ4[32]		= -2.6547080e-001;
 pJLkp->pJ5[32]		= -5.5038855e-002;
 pJLkp->pJ6[32]		= 2.0431652e-001;
 pJLkp->pJ7[32]		= 3.2746088e-001;
 pJLkp->pJ8[32]		= 3.0506707e-001;
 pJLkp->pJ9[32]		= 2.1488058e-001;
 pJLkp->pJ0[33]		= -1.5765519e-001;
 pJLkp->pJ1[33]		= 2.0041393e-001;
 pJLkp->pJ2[33]		= 2.0075496e-001;
 pJLkp->pJ3[33]		= -1.1406771e-001;
 pJLkp->pJ4[33]		= -2.7434703e-001;
 pJLkp->pJ5[33]		= -1.2192974e-001;
 pJLkp->pJ6[33]		= 1.4323979e-001;
 pJLkp->pJ7[33]		= 3.0675527e-001;
 pJLkp->pJ8[33]		= 3.1854234e-001;
 pJLkp->pJ9[33]		= 2.4127456e-001;
 pJLkp->pJ0[34]		= -2.0897872e-001;
 pJLkp->pJ1[34]		= 1.3952481e-001;
 pJLkp->pJ2[34]		= 2.3804639e-001;
 pJLkp->pJ3[34]		= -4.0338817e-002;
 pJLkp->pJ4[34]		= -2.6325815e-001;
 pJLkp->pJ5[34]		= -1.7904297e-001;
 pJLkp->pJ6[34]		= 7.6755051e-002;
 pJLkp->pJ7[34]		= 2.7498679e-001;
 pJLkp->pJ8[34]		= 3.2426735e-001;
 pJLkp->pJ9[34]		= 2.6545879e-001;
 pJLkp->pJ0[35]		= -2.4034111e-001;
 pJLkp->pJ1[35]		= 6.8369832e-002;
 pJLkp->pJ2[35]		= 2.5415319e-001;
 pJLkp->pJ3[35]		= 3.4318326e-002;
 pJLkp->pJ4[35]		= -2.3335421e-001;
 pJLkp->pJ5[35]		= -2.2288738e-001;
 pJLkp->pJ6[35]		= 8.2154369e-003;
 pJLkp->pJ7[35]		= 2.3284549e-001;
 pJLkp->pJ8[35]		= 3.2106101e-001;
 pJLkp->pJ9[35]		= 2.8604099e-001;
 pJLkp->pJ0[36]		= -2.4961707e-001;
 pJLkp->pJ1[36]		= -6.6157431e-003;
 pJLkp->pJ2[36]		= 2.4831987e-001;
 pJLkp->pJ3[36]		= 1.0399608e-001;
 pJLkp->pJ4[36]		= -1.8714570e-001;
 pJLkp->pJ5[36]		= -2.5077702e-001;
 pJLkp->pJ6[36]		= -5.8714127e-002;
 pJLkp->pJ7[36]		= 1.8170158e-001;
 pJLkp->pJ8[36]		= 3.0810845e-001;
 pJLkp->pJ9[36]		= 3.0160580e-001;
 pJLkp->pJ0[37]		= -2.3664819e-001;
 pJLkp->pJ1[37]		= -7.8850014e-002;
 pJLkp->pJ2[37]		= 2.2162914e-001;
 pJLkp->pJ3[37]		= 1.6328016e-001;
 pJLkp->pJ4[37]		= -1.2832619e-001;
 pJLkp->pJ5[37]		= -2.6105250e-001;
 pJLkp->pJ6[37]		= -1.2029524e-001;
 pJLkp->pJ7[37]		= 1.2357223e-001;
 pJLkp->pJ8[37]		= 2.8505821e-001;
 pJLkp->pJ9[37]		= 3.1080219e-001;
 pJLkp->pJ0[38]		= -2.0320197e-001;
 pJLkp->pJ1[38]		= -1.4216657e-001;
 pJLkp->pJ2[38]		= 1.7687482e-001;
 pJLkp->pJ3[38]		= 2.0767576e-001;
 pJLkp->pJ4[38]		= -6.1499401e-002;
 pJLkp->pJ5[38]		= -2.5323087e-001;
 pJLkp->pJ6[38]		= -1.7297363e-001;
 pJLkp->pJ7[38]		= 6.1037952e-002;
 pJLkp->pJ8[38]		= 2.5209690e-001;
 pJLkp->pJ9[38]		= 3.1243894e-001;
 pJLkp->pJ0[39]		= -1.5276830e-001;
 pJLkp->pJ1[39]		= -1.9132829e-001;
 pJLkp->pJ2[39]		= 1.1829473e-001;
 pJLkp->pJ3[39]		= 2.3395702e-001;
 pJLkp->pJ4[39]		= 8.1685234e-003;
 pJLkp->pJ5[39]		= -2.2806980e-001;
 pJLkp->pJ6[39]		= -2.1363681e-001;
 pJLkp->pJ7[39]		= -2.8889155e-003;
 pJLkp->pJ8[39]		= 2.0999313e-001;
 pJLkp->pJ9[39]		= 3.0558172e-001;
 pJLkp->pJ0[40]		= -9.0214500e-002;
 pJLkp->pJ1[40]		= -2.2245059e-001;
 pJLkp->pJ2[40]		= 5.1188082e-002;
 pJLkp->pJ3[40]		= 2.4041132e-001;
 pJLkp->pJ4[40]		= 7.5344190e-002;
 pJLkp->pJ5[40]		= -1.8753820e-001;
 pJLkp->pJ6[40]		= -2.3985138e-001;
 pJLkp->pJ7[40]		= -6.4936940e-002;
 pJLkp->pJ8[40]		= 1.6010426e-001;
 pJLkp->pJ9[40]		= 2.8964468e-001;
 pJLkp->pJ0[41]		= -2.1331282e-002;
 pJLkp->pJ1[41]		= -2.3330024e-001;
 pJLkp->pJ2[41]		= -1.8549102e-002;
 pJLkp->pJ3[41]		= 2.2695867e-001;
 pJLkp->pJ4[41]		= 1.3493816e-001;
 pJLkp->pJ5[41]		= -1.3469326e-001;
 pJLkp->pJ6[41]		= -2.5006060e-001;
 pJLkp->pJ7[41]		= -1.2177916e-001;
 pJLkp->pJ8[41]		= 1.0434196e-001;
 pJLkp->pJ9[41]		= 2.6446901e-001;
 pJLkp->pJ0[42]		= 4.7689311e-002;
 pJLkp->pJ1[42]		= -2.2344710e-001;
 pJLkp->pJ2[42]		= -8.4930495e-002;
 pJLkp->pJ3[42]		= 1.9513694e-001;
 pJLkp->pJ4[42]		= 1.8249896e-001;
 pJLkp->pJ5[42]		= -7.3470963e-002;
 pJLkp->pJ6[42]		= -2.4372477e-001;
 pJLkp->pJ7[42]		= -1.7025380e-001;
 pJLkp->pJ8[42]		= 4.5095329e-002;
 pJLkp->pJ9[42]		= 2.3038091e-001;
 pJLkp->pJ0[43]		= 1.1079795e-001;
 pJLkp->pJ1[43]		= -1.9425885e-001;
 pJLkp->pJ2[43]		= -1.4238475e-001;
 pJLkp->pJ3[43]		= 1.4795486e-001;
 pJLkp->pJ4[43]		= 2.1455786e-001;
 pJLkp->pJ5[43]		= -8.4050361e-003;
 pJLkp->pJ6[43]		= -2.2139122e-001;
 pJLkp->pJ7[43]		= -2.0758640e-001;
 pJLkp->pJ8[43]		= -1.4885981e-002;
 pJLkp->pJ9[43]		= 1.8822252e-001;
 pJLkp->pJ0[44]		= 1.6260727e-001;
 pJLkp->pJ1[44]		= -1.4874234e-001;
 pJLkp->pJ2[44]		= -1.8621717e-001;
 pJLkp->pJ3[44]		= 8.9625782e-002;
 pJLkp->pJ4[44]		= 2.2889611e-001;
 pJLkp->pJ5[44]		= 5.5705082e-002;
 pJLkp->pJ6[44]		= -1.8468573e-001;
 pJLkp->pJ7[44]		= -2.3159625e-001;
 pJLkp->pJ8[44]		= -7.2643440e-002;
 pJLkp->pJ9[44]		= 1.3935061e-001;
 pJLkp->pJ0[45]		= 1.9884244e-001;
 pJLkp->pJ1[45]		= -9.1248252e-002;
 pJLkp->pJ2[45]		= -2.1298945e-001;
 pJLkp->pJ3[45]		= 2.5205011e-002;
 pJLkp->pJ4[45]		= 2.2471271e-001;
 pJLkp->pJ5[45]		= 1.1415171e-001;
 pJLkp->pJ6[45]		= -1.3622302e-001;
 pJLkp->pJ7[45]		= -2.4087080e-001;
 pJLkp->pJ8[45]		= -1.2518715e-001;
 pJLkp->pJ9[45]		= 8.5599912e-002;
 pJLkp->pJ0[46]		= 2.1668592e-001;
 pJLkp->pJ1[46]		= -2.7066703e-002;
 pJLkp->pJ2[46]		= -2.2078694e-001;
 pJLkp->pJ3[46]		= -3.9838430e-002;
 pJLkp->pJ4[46]		= 2.0267856e-001;
 pJLkp->pJ5[46]		= 1.6267392e-001;
 pJLkp->pJ6[46]		= -7.9440742e-002;
 pJLkp->pJ7[46]		= -2.3489278e-001;
 pJLkp->pJ8[46]		= -1.6968796e-001;
 pJLkp->pJ9[46]		= 2.9210400e-002;
 pJLkp->pJ0[47]		= 2.1498917e-001;
 pJLkp->pJ1[47]		= 3.8049292e-002;
 pJLkp->pJ2[47]		= -2.0935223e-001;
 pJLkp->pJ3[47]		= -1.0007958e-001;
 pJLkp->pJ4[47]		= 1.6487242e-001;
 pJLkp->pJ5[47]		= 1.9778176e-001;
 pJLkp->pJ6[47]		= -1.8367413e-002;
 pJLkp->pJ7[47]		= -2.1410835e-001;
 pJLkp->pJ8[47]		= -2.0367087e-001;
 pJLkp->pJ9[47]		= -2.7279354e-002;
 pJLkp->pJ0[48]		= 1.9433564e-001;
 pJLkp->pJ1[48]		= 9.8390516e-002;
 pJLkp->pJ2[48]		= -1.8007614e-001;
 pJLkp->pJ3[48]		= -1.5058650e-001;
 pJLkp->pJ4[48]		= 1.1460375e-001;
 pJLkp->pJ5[48]		= 2.1702346e-001;
 pJLkp->pJ6[48]		= 4.2659624e-002;
 pJLkp->pJ7[48]		= -1.7992813e-001;
 pJLkp->pJ8[48]		= -2.2519541e-001;
 pJLkp->pJ9[48]		= -8.1167995e-002;
 pJLkp->pJ0[49]		= 1.5695288e-001;
 pJLkp->pJ1[49]		= 1.4878435e-001;
 pJLkp->pJ2[49]		= -1.3584871e-001;
 pJLkp->pJ3[49]		= -1.8732299e-001;
 pJLkp->pJ4[49]		= 5.6136802e-002;
 pJLkp->pJ5[49]		= 2.1917366e-001;
 pJLkp->pJ6[49]		= 9.9305511e-002;
 pJLkp->pJ7[49]		= -1.3465833e-001;
 pJLkp->pJ8[49]		= -2.3300882e-001;
 pJLkp->pJ9[49]		= -1.2974884e-001;
 pJLkp->pJ0[50]		= 1.0648412e-001;
 pJLkp->pJ1[50]		= 1.8503166e-001;
 pJLkp->pJ2[50]		= -8.0785277e-002;
 pJLkp->pJ3[50]		= -2.0747202e-001;
 pJLkp->pJ4[50]		= -5.6613967e-003;
 pJLkp->pJ5[50]		= 2.0432680e-001;
 pJLkp->pJ6[50]		= 1.4755500e-001;
 pJLkp->pJ7[50]		= -8.1364292e-002;
 pJLkp->pJ8[50]		= -2.2665918e-001;
 pJLkp->pJ9[50]		= -1.7047924e-001;
 pJLkp->pJ0[51]		= 4.7641846e-002;
 pJLkp->pJ1[51]		= 2.0425127e-001;
 pJLkp->pJ2[51]		= -1.9852558e-002;
 pJLkp->pJ3[51]		= -2.0965332e-001;
 pJLkp->pJ4[51]		= -6.5720228e-002;
 pJLkp->pJ5[51]		= 1.7388721e-001;
 pJLkp->pJ6[51]		= 1.8401085e-001;
 pJLkp->pJ7[51]		= -2.3674276e-002;
 pJLkp->pJ8[51]		= -2.0655778e-001;
 pJLkp->pJ9[51]		= -2.0115052e-001;
 pJLkp->pJ0[52]		= -1.4224473e-002;
 pJLkp->pJ1[52]		= 2.0510404e-001;
 pJLkp->pJ2[52]		= 4.1571678e-002;
 pJLkp->pJ3[52]		= -1.9401826e-001;
 pJLkp->pJ4[52]		= -1.1917898e-001;
 pJLkp->pJ5[52]		= 1.3045613e-001;
 pJLkp->pJ6[52]		= 2.0614974e-001;
 pJLkp->pJ7[52]		= 3.4463655e-002;
 pJLkp->pJ8[52]		= -1.7398366e-001;
 pJLkp->pJ9[52]		= -2.2004623e-001;
 pJLkp->pJ0[53]		= -7.3607545e-002;
 pJLkp->pJ1[53]		= 1.8787945e-001;
 pJLkp->pJ2[53]		= 9.8166950e-002;
 pJLkp->pJ3[53]		= -1.6221489e-001;
 pJLkp->pJ4[53]		= -1.6178063e-001;
 pJLkp->pJ5[53]		= 7.7623708e-002;
 pJLkp->pJ6[53]		= 2.1251508e-001;
 pJLkp->pJ7[53]		= 8.9054787e-002;
 pJLkp->pJ8[53]		= -1.3102704e-001;
 pJLkp->pJ9[53]		= -2.2607653e-001;
 pJLkp->pJ0[54]		= -1.2532596e-001;
 pJLkp->pJ1[54]		= 1.5443959e-001;
 pJLkp->pJ2[54]		= 1.4512591e-001;
 pJLkp->pJ3[54]		= -1.1722782e-001;
 pJLkp->pJ4[54]		= -1.9021353e-001;
 pJLkp->pJ5[54]		= 1.9682414e-002;
 pJLkp->pJ6[54]		= 2.0283046e-001;
 pJLkp->pJ7[54]		= 1.3634102e-001;
 pJLkp->pJ8[54]		= -8.0473139e-002;
 pJLkp->pJ9[54]		= -2.1887757e-001;
 pJLkp->pJ0[55]		= -1.6497050e-001;
 pJLkp->pJ1[55]		= 1.0802789e-001;
 pJLkp->pJ2[55]		= 1.7855891e-001;
 pJLkp->pJ3[55]		= -6.3107409e-002;
 pJLkp->pJ4[55]		= -2.0237303e-001;
 pJLkp->pJ5[55]		= -3.8715499e-002;
 pJLkp->pJ6[55]		= 1.7802366e-001;
 pJLkp->pJ7[55]		= 1.7307298e-001;
 pJLkp->pJ8[55]		= -2.5632358e-002;
 pJLkp->pJ9[55]		= -1.9886655e-001;
 pJLkp->pJ0[56]		= -1.8927495e-001;
 pJLkp->pJ1[56]		= 5.2961499e-002;
 pJLkp->pJ2[56]		= 1.9581340e-001;
 pJLkp->pJ3[56]		= -4.6125107e-003;
 pJLkp->pJ4[56]		= -1.9752174e-001;
 pJLkp->pJ5[56]		= -9.2929090e-002;
 pJLkp->pJ6[56]		= 1.4015811e-001;
 pJLkp->pJ7[56]		= 1.9674991e-001;
 pJLkp->pJ8[56]		= 2.9872680e-002;
 pJLkp->pJ9[56]		= -1.6724603e-001;
 pJLkp->pJ0[57]		= -1.9638069e-001;
 pJLkp->pJ1[57]		= -5.7642136e-003;
 pJLkp->pJ2[57]		= 1.9568200e-001;
 pJLkp->pJ3[57]		= 5.3202274e-002;
 pJLkp->pJ4[57]		= -1.7633572e-001;
 pJLkp->pJ5[57]		= -1.3869838e-001;
 pJLkp->pJ6[57]		= 9.2276094e-002;
 pJLkp->pJ7[57]		= 2.0580827e-001;
 pJLkp->pJ8[57]		= 8.2349102e-002;
 pJLkp->pJ9[57]		= -1.2595459e-001;
 pJLkp->pJ0[58]		= -1.8597387e-001;
 pJLkp->pJ1[58]		= -6.2923217e-002;
 pJLkp->pJ2[58]		= 1.7848301e-001;
 pJLkp->pJ3[58]		= 1.0541917e-001;
 pJLkp->pJ4[58]		= -1.4083330e-001;
 pJLkp->pJ5[58]		= -1.7248265e-001;
 pJLkp->pJ6[58]		= 3.8165059e-002;
 pJLkp->pJ7[58]		= 1.9974340e-001;
 pJLkp->pJ8[58]		= 1.2828778e-001;
 pJLkp->pJ9[58]		= -7.7564568e-002;
 pJLkp->pJ0[59]		= -1.5928533e-001;
 pJLkp->pJ1[59]		= -1.1351885e-001;
 pJLkp->pJ2[59]		= 1.4600827e-001;
 pJLkp->pJ3[59]		= 1.4767283e-001;
 pJLkp->pJ4[59]		= -9.4193245e-002;
 pJLkp->pJ5[59]		= -1.9173985e-001;
 pJLkp->pJ6[59]		= -1.7935319e-002;
 pJLkp->pJ7[59]		= 1.7915366e-001;
 pJLkp->pJ8[59]		= 1.6461083e-001;
 pJLkp->pJ9[59]		= -2.5131829e-002;
 pJLkp->pJ0[60]		= -1.1895586e-001;
 pJLkp->pJ1[60]		= -1.5321618e-001;
 pJLkp->pJ2[60]		= 1.0134480e-001;
 pJLkp->pJ3[60]		= 1.7651383e-001;
 pJLkp->pJ4[60]		= -4.0477963e-002;
 pJLkp->pJ5[60]		= -1.9512439e-001;
 pJLkp->pJ6[60]		= -7.1662490e-002;
 pJLkp->pJ7[60]		= 1.4570198e-001;
 pJLkp->pJ8[60]		= 1.8889397e-001;
 pJLkp->pJ9[60]		= 2.7993623e-002;
 pJLkp->pJ0[61]		= -6.8780399e-002;
 pJLkp->pJ1[61]		= -1.7870962e-001;
 pJLkp->pJ2[61]		= 4.8587222e-002;
 pJLkp->pJ3[61]		= 1.8968978e-001;
 pJLkp->pJ4[61]		= 1.5714399e-002;
 pJLkp->pJ5[61]		= -1.8258723e-001;
 pJLkp->pJ6[61]		= -1.1887103e-001;
 pJLkp->pJ7[61]		= 1.0199670e-001;
 pJLkp->pJ8[61]		= 1.9954638e-001;
 pJLkp->pJ9[61]		= 7.8384209e-002;
 pJLkp->pJ0[62]		= -1.3355806e-002;
 pJLkp->pJ1[62]		= -1.8799489e-001;
 pJLkp->pJ2[62]		= -7.5325148e-003;
 pJLkp->pJ3[62]		= 1.8632099e-001;
 pJLkp->pJ4[62]		= 6.9639513e-002;
 pJLkp->pJ5[62]		= -1.5537010e-001;
 pJLkp->pJ6[62]		= -1.5595623e-001;
 pJLkp->pJ7[62]		= 5.1399276e-002;
 pJLkp->pJ8[62]		= 1.9593345e-001;
 pJLkp->pJ9[62]		= 1.2276379e-001;
 pJLkp->pJ0[63]		= 4.2335838e-002;
 pJLkp->pJ1[63]		= -1.8052307e-001;
 pJLkp->pJ2[63]		= -6.2065136e-002;
 pJLkp->pJ3[63]		= 1.6695692e-001;
 pJLkp->pJ4[63]		= 1.1680511e-001;
 pJLkp->pJ5[63]		= -1.1589458e-001;
 pJLkp->pJ6[63]		= -1.8013548e-001;
 pJLkp->pJ7[63]		= -2.2270478e-003;
 pJLkp->pJ8[63]		= 1.7843173e-001;
 pJLkp->pJ9[63]		= 1.5823293e-001;
 pJLkp->pJ0[64]		= 9.3370816e-002;
 pJLkp->pJ1[64]		= -1.5722535e-001;
 pJLkp->pJ2[64]		= -1.1027677e-001;
 pJLkp->pJ3[64]		= 1.3350992e-001;
 pJLkp->pJ4[64]		= 1.5334448e-001;
 pJLkp->pJ5[64]		= -6.7555302e-002;
 pJLkp->pJ6[64]		= -1.8966454e-001;
 pJLkp->pJ7[64]		= -5.4808916e-002;
 pJLkp->pJ8[64]		= 1.4841052e-001;
 pJLkp->pJ9[64]		= 1.8247388e-001;
 pJLkp->pJ0[65]		= 1.3531521e-001;
 pJLkp->pJ1[65]		= -1.2040801e-001;
 pJLkp->pJ2[65]		= -1.4805680e-001;
 pJLkp->pJ3[65]		= 8.9073241e-002;
 pJLkp->pJ4[65]		= 1.7633402e-001;
 pJLkp->pJ5[65]		= -1.4434503e-002;
 pJLkp->pJ6[65]		= -1.8397132e-001;
 pJLkp->pJ7[65]		= -1.0237269e-001;
 pJLkp->pJ8[65]		= 1.0813970e-001;
 pJLkp->pJ9[65]		= 1.9391952e-001;
 pJLkp->pJ0[66]		= 1.6460666e-001;
 pJLkp->pJ1[66]		= -7.3528988e-002;
 pJLkp->pJ2[66]		= -1.7226593e-001;
 pJLkp->pJ3[66]		= 3.7640253e-002;
 pJLkp->pJ4[66]		= 1.8402851e-001;
 pJLkp->pJ5[66]		= 3.9038292e-002;
 pJLkp->pJ6[66]		= -1.6369606e-001;
 pJLkp->pJ7[66]		= -1.4134833e-001;
 pJLkp->pJ8[66]		= 6.0629572e-002;
 pJLkp->pJ9[66]		= 1.9187298e-001;
 pJLkp->pJ0[67]		= 1.7885383e-001;
 pJLkp->pJ1[67]		= -2.0877070e-002;
 pJLkp->pJ2[67]		= -1.8099506e-001;
 pJLkp->pJ3[67]		= -1.6250123e-002;
 pJLkp->pJ4[67]		= 1.7599503e-001;
 pJLkp->pJ5[67]		= 8.8453211e-002;
 pJLkp->pJ6[67]		= -1.3063441e-001;
 pJLkp->pJ7[67]		= -1.6884361e-001;
 pJLkp->pJ8[67]		= 9.4133498e-003;
 pJLkp->pJ9[67]		= 1.7656739e-001;
 pJLkp->pJ0[68]		= 1.7702864e-001;
 pJLkp->pJ1[68]		= 3.2816762e-002;
 pJLkp->pJ2[68]		= -1.7371382e-001;
 pJLkp->pJ3[68]		= -6.7910462e-002;
 pJLkp->pJ4[68]		= 1.5313489e-001;
 pJLkp->pJ5[68]		= 1.2978315e-001;
 pJLkp->pJ6[68]		= -8.7587848e-002;
 pJLkp->pJ7[68]		= -1.8286669e-001;
 pJLkp->pJ8[68]		= -4.1711832e-002;
 pJLkp->pJ9[68]		= 1.4916016e-001;
 pJLkp->pJ0[69]		= 1.5953607e-001;
 pJLkp->pJ1[69]		= 8.2801006e-002;
 pJLkp->pJ2[69]		= -1.5129716e-001;
 pJLkp->pJ3[69]		= -1.1290989e-001;
 pJLkp->pJ4[69]		= 1.1759272e-001;
 pJLkp->pJ5[69]		= 1.5971296e-001;
 pJLkp->pJ6[69]		= -3.8133530e-002;
 pJLkp->pJ7[69]		= -1.8247925e-001;
 pJLkp->pJ8[69]		= -8.8966446e-002;
 pJLkp->pJ9[69]		= 1.1166019e-001;
 pJLkp->pJ0[70]		= 1.2815707e-001;
 pJLkp->pJ1[70]		= 1.2472099e-001;
 pJLkp->pJ2[70]		= -1.1592953e-001;
 pJLkp->pJ3[70]		= -1.4745227e-001;
 pJLkp->pJ4[70]		= 7.2561212e-002;
 pJLkp->pJ5[70]		= 1.7590764e-001;
 pJLkp->pJ6[70]		= 1.3668026e-002;
 pJLkp->pJ7[70]		= -1.6786763e-001;
 pJLkp->pJ8[70]		= -1.2887130e-001;
 pJLkp->pJ9[70]		= 6.6792099e-002;
 pJLkp->pJ0[71]		= 8.5871653e-002;
 pJLkp->pJ1[71]		= 1.5499549e-001;
 pJLkp->pJ2[71]		= -7.0896243e-002;
 pJLkp->pJ3[71]		= -1.6869525e-001;
 pJLkp->pJ4[71]		= 2.1999071e-002;
 pJLkp->pJ5[71]		= 1.7719730e-001;
 pJLkp->pJ6[71]		= 6.3603491e-002;
 pJLkp->pJ7[71]		= -1.4032571e-001;
 pJLkp->pJ8[71]		= -1.5850977e-001;
 pJLkp->pJ9[71]		= 1.7806084e-002;
 pJLkp->pJ0[72]		= 3.6579071e-002;
 pJLkp->pJ1[72]		= 1.7112027e-001;
 pJLkp->pJ2[72]		= -2.0281902e-002;
 pJLkp->pJ3[72]		= -1.7498349e-001;
 pJLkp->pJ4[72]		= -2.9713381e-002;
 pJLkp->pJ5[72]		= 1.6366411e-001;
 pJLkp->pJ6[72]		= 1.0764867e-001;
 pJLkp->pJ7[72]		= -1.0215058e-001;
 pJLkp->pJ8[72]		= -1.7574906e-001;
 pJLkp->pJ9[72]		= -3.1753463e-002;
 pJLkp->pJ0[73]		= -1.5258682e-002;
 pJLkp->pJ1[73]		= 1.7187297e-001;
 pJLkp->pJ2[73]		= 3.1396989e-002;
 pJLkp->pJ3[73]		= -1.6597682e-001;
 pJLkp->pJ4[73]		= -7.8151023e-002;
 pJLkp->pJ5[73]		= 1.3662433e-001;
 pJLkp->pJ6[73]		= 1.4229390e-001;
 pJLkp->pJ7[73]		= -5.6458749e-002;
 pJLkp->pJ8[73]		= -1.7940294e-001;
 pJLkp->pJ9[73]		= -7.8304020e-002;
 pJLkp->pJ0[74]		= -6.5017904e-002;
 pJLkp->pJ1[74]		= 1.5740272e-001;
 pJLkp->pJ2[74]		= 7.9592230e-002;
 pJLkp->pJ3[74]		= -1.4266342e-001;
 pJLkp->pJ4[74]		= -1.1922096e-001;
 pJLkp->pJ5[74]		= 9.8507506e-002;
 pJLkp->pJ6[74]		= 1.6482628e-001;
 pJLkp->pJ7[74]		= -6.9373485e-003;
 pJLkp->pJ8[74]		= -1.6932271e-001;
 pJLkp->pJ9[74]		= -1.1848688e-001;
 pJLkp->pJ0[75]		= -1.0832288e-001;
 pJLkp->pJ1[75]		= 1.2919822e-001;
 pJLkp->pJ2[75]		= 1.2012180e-001;
 pJLkp->pJ3[75]		= -1.0725816e-001;
 pJLkp->pJ4[75]		= -1.4950760e-001;
 pJLkp->pJ5[75]		= 5.2643512e-002;
 pJLkp->pJ6[75]		= 1.7354573e-001;
 pJLkp->pJ7[75]		= 4.2450040e-002;
 pJLkp->pJ8[75]		= -1.4640872e-001;
 pJLkp->pJ9[75]		= -1.4941531e-001;
 pJLkp->pJ0[76]		= -1.4142817e-001;
 pJLkp->pJ1[76]		= 8.9938652e-002;
 pJLkp->pJ2[76]		= 1.4953075e-001;
 pJLkp->pJ3[76]		= -6.2996175e-002;
 pJLkp->pJ4[76]		= -1.6655674e-001;
 pJLkp->pJ5[76]		= 2.9757280e-003;
 pJLkp->pJ6[76]		= 1.6789716e-001;
 pJLkp->pJ7[76]		= 8.7779493e-002;
 pJLkp->pJ8[76]		= -1.1254072e-001;
 pJLkp->pJ9[76]		= -1.6888992e-001;
 pJLkp->pJ0[77]		= -1.6154032e-001;
 pJLkp->pJ1[77]		= 4.3242033e-002;
 pJLkp->pJ2[77]		= 1.6538405e-001;
 pJLkp->pJ3[77]		= -1.3840424e-002;
 pJLkp->pJ4[77]		= -1.6907483e-001;
 pJLkp->pJ5[77]		= -4.6275072e-002;
 pJLkp->pJ6[77]		= 1.4850813e-001;
 pJLkp->pJ7[77]		= 1.2547941e-001;
 pJLkp->pJ8[77]		= -7.0432056e-002;
 pJLkp->pJ9[77]		= -1.7556443e-001;
 pJLkp->pJ0[78]		= -1.6705151e-001;
 pJLkp->pJ1[78]		= -6.6656650e-003;
 pJLkp->pJ2[78]		= 1.6646680e-001;
 pJLkp->pJ3[78]		= 3.5870368e-002;
 pJLkp->pJ4[78]		= -1.5702723e-001;
 pJLkp->pJ5[78]		= -9.0967643e-002;
 pJLkp->pJ6[78]		= 1.1712915e-001;
 pJLkp->pJ7[78]		= 1.5261456e-001;
 pJLkp->pJ8[78]		= -2.3418450e-002;
 pJLkp->pJ9[78]		= -1.6904856e-001;
 pJLkp->pJ0[79]		= -1.5766577e-001;
 pJLkp->pJ1[79]		= -5.5330508e-002;
 pJLkp->pJ2[79]		= 1.5287525e-001;
 pJLkp->pJ3[79]		= 8.1802412e-002;
 pJLkp->pJ4[79]		= -1.3162787e-001;
 pJLkp->pJ5[79]		= -1.2738782e-001;
 pJLkp->pJ6[79]		= 7.6481626e-002;
 pJLkp->pJ7[79]		= 1.6711854e-001;
 pJLkp->pJ8[79]		= 2.4802335e-002;
 pJLkp->pJ9[79]		= -1.4993943e-001;
 pJLkp->pJ0[80]		= -1.3440799e-001;
 pJLkp->pJ1[80]		= -9.8465810e-002;
 pJLkp->pJ2[80]		= 1.2599211e-001;
 pJLkp->pJ3[80]		= 1.2000292e-001;
 pJLkp->pJ4[80]		= -9.5222130e-002;
 pJLkp->pJ5[80]		= -1.5255750e-001;
 pJLkp->pJ6[80]		= 3.0026619e-002;
 pJLkp->pJ7[80]		= 1.6795576e-001;
 pJLkp->pJ8[80]		= 7.0459736e-002;
 pJLkp->pJ9[80]		= -1.1977817e-001;
 pJLkp->pJ0[81]		= -9.9516546e-002;
 pJLkp->pJ1[81]		= -1.3232767e-001;
 pJLkp->pJ2[81]		= 8.8349654e-002;
 pJLkp->pJ3[81]		= 1.4723900e-001;
 pJLkp->pJ4[81]		= -5.1073958e-002;
 pJLkp->pJ5[81]		= -1.6447915e-001;
 pJLkp->pJ6[81]		= -1.8326529e-002;
 pJLkp->pJ7[81]		= 1.5519990e-001;
 pJLkp->pJ8[81]		= 1.1000579e-001;
 pJLkp->pJ9[81]		= -8.0934384e-002;
 pJLkp->pJ0[82]		= -5.6230274e-002;
 pJLkp->pJ1[82]		= -1.5403807e-001;
 pJLkp->pJ2[82]		= 4.3393769e-002;
 pJLkp->pJ3[82]		= 1.6127036e-001;
 pJLkp->pJ4[82]		= -3.0761789e-003;
 pJLkp->pJ5[82]		= -1.6229575e-001;
 pJLkp->pJ6[82]		= -6.4547051e-002;
 pJLkp->pJ7[82]		= 1.3002223e-001;
 pJLkp->pJ8[82]		= 1.4039335e-001;
 pJLkp->pJ9[82]		= -3.6426660e-002;
 pJLkp->pJ0[83]		= -8.4899849e-003;
 pJLkp->pJ1[83]		= -1.6182784e-001;
 pJLkp->pJ2[83]		= -4.8291792e-003;
 pJLkp->pJ3[83]		= 1.6103292e-001;
 pJLkp->pJ4[83]		= 4.4590393e-002;
 pJLkp->pJ5[83]		= -1.4635295e-001;
 pJLkp->pJ6[83]		= -1.0481795e-001;
 pJLkp->pJ7[83]		= 9.4591004e-002;
 pJLkp->pJ8[83]		= 1.5931482e-001;
 pJLkp->pJ9[83]		= 1.0307643e-002;
 pJLkp->pJ0[84]		= 3.9418261e-002;
 pJLkp->pJ1[84]		= -1.5517909e-001;
 pJLkp->pJ2[84]		= -5.2034448e-002;
 pJLkp->pJ3[84]		= 1.4671821e-001;
 pJLkp->pJ4[84]		= 8.7819377e-002;
 pJLkp->pJ5[84]		= -1.1815906e-001;
 pJLkp->pJ6[84]		= -1.3585152e-001;
 pJLkp->pJ7[84]		= 5.1890030e-002;
 pJLkp->pJ8[84]		= 1.6538243e-001;
 pJLkp->pJ9[84]		= 5.5675776e-002;
 pJLkp->pJ0[85]		= 8.3245968e-002;
 pJLkp->pJ1[85]		= -1.3485570e-001;
 pJLkp->pJ2[85]		= -9.4077751e-002;
 pJLkp->pJ3[85]		= 1.1974281e-001;
 pJLkp->pJ4[85]		= 1.2293144e-001;
 pJLkp->pJ5[85]		= -8.0246763e-002;
 pJLkp->pJ6[85]		= -1.5515906e-001;
 pJLkp->pJ7[85]		= 5.4713143e-003;
 pJLkp->pJ8[85]		= 1.5823530e-001;
 pJLkp->pJ9[85]		= 9.6205985e-002;
 pJLkp->pJ0[86]		= 1.1915711e-001;
 pJLkp->pJ1[86]		= -1.0282062e-001;
 pJLkp->pJ2[86]		= -1.2731747e-001;
 pJLkp->pJ3[86]		= 8.2611498e-002;
 pJLkp->pJ4[86]		= 1.4698688e-001;
 pJLkp->pJ5[86]		= -3.5948998e-002;
 pJLkp->pJ6[86]		= -1.6125235e-001;
 pJLkp->pJ7[86]		= -4.0837836e-002;
 pJLkp->pJ8[86]		= 1.3856466e-001;
 pJLkp->pJ9[86]		= 1.2881540e-001;
 pJLkp->pJ0[87]		= 1.4406216e-001;
 pJLkp->pJ1[87]		= -6.2048537e-002;
 pJLkp->pJ2[87]		= -1.4892871e-001;
 pJLkp->pJ3[87]		= 3.8687170e-002;
 pJLkp->pJ4[87]		= 1.5803157e-001;
 pJLkp->pJ5[87]		= 1.0891362e-002;
 pJLkp->pJ6[87]		= -1.5376045e-001;
 pJLkp->pJ7[87]		= -8.3249221e-002;
 pJLkp->pJ8[87]		= 1.0805500e-001;
 pJLkp->pJ9[87]		= 1.5104843e-001;
 pJLkp->pJ0[88]		= 1.5588238e-001;
 pJLkp->pJ1[88]		= -1.6251503e-002;
 pJLkp->pJ2[88]		= -1.5714219e-001;
 pJLkp->pJ3[88]		= -8.1116268e-003;
 pJLkp->pJ4[88]		= 1.5525576e-001;
 pJLkp->pJ5[88]		= 5.6252949e-002;
 pJLkp->pJ6[88]		= -1.3345230e-001;
 pJLkp->pJ7[88]		= -1.1832378e-001;
 pJLkp->pJ8[88]		= 6.9245591e-002;
 pJLkp->pJ9[88]		= 1.6126679e-001;
 pJLkp->pJ0[89]		= 1.5372178e-001;
 pJLkp->pJ1[89]		= 3.0457220e-002;
 pJLkp->pJ2[89]		= -1.5138789e-001;
 pJLkp->pJ3[89]		= -5.3658429e-002;
 pJLkp->pJ4[89]		= 1.3905262e-001;
 pJLkp->pJ5[89]		= 9.6279922e-002;
 pJLkp->pJ6[89]		= -1.0216376e-001;
 pJLkp->pJ7[89]		= -1.4325177e-001;
 pJLkp->pJ8[89]		= 2.5323734e-002;
 pJLkp->pJ9[89]		= 1.5877590e-001;
 pJLkp->pJ0[90]		= 1.3793268e-001;
 pJLkp->pJ1[90]		= 7.3930900e-002;
 pJLkp->pJ2[90]		= -1.3233185e-001;
 pJLkp->pJ3[90]		= -9.3981181e-002;
 pJLkp->pJ4[90]		= 1.1097249e-001;
 pJLkp->pJ5[90]		= 1.2760921e-001;
 pJLkp->pJ6[90]		= -6.2635672e-002;
 pJLkp->pJ7[90]		= -1.5607997e-001;
 pJLkp->pJ8[90]		= -2.0134009e-002;
 pJLkp->pJ9[90]		= 1.4387754e-001;
 pJLkp->pJ0[91]		= 1.1007035e-001;
 pJLkp->pJ1[91]		= 1.1035589e-001;
 pJLkp->pJ2[91]		= -1.0180400e-001;
 pJLkp->pJ3[91]		= -1.2560742e-001;
 pJLkp->pJ4[91]		= 7.3577609e-002;
 pJLkp->pJ5[91]		= 1.4765315e-001;
 pJLkp->pJ6[91]		= -1.8276804e-002;
 pJLkp->pJ7[91]		= -1.5586744e-001;
 pJLkp->pJ8[91]		= -6.3451443e-002;
 pJLkp->pJ9[91]		= 1.1784411e-001;
 pJLkp->pJ0[92]		= 7.2741918e-002;
 pJLkp->pJ1[92]		= 1.3658472e-001;
 pJLkp->pJ2[92]		= -6.2624531e-002;
 pJLkp->pJ3[92]		= -1.4586243e-001;
 pJLkp->pJ4[92]		= 3.0210657e-002;
 pJLkp->pJ5[92]		= 1.5481374e-001;
 pJLkp->pJ6[92]		= 2.7127765e-002;
 pJLkp->pJ7[92]		= -1.4275695e-001;
 pJLkp->pJ8[92]		= -1.0114989e-001;
 pJLkp->pJ9[92]		= 8.2816279e-002;
 pJLkp->pJ0[93]		= 2.9363974e-002;
 pJLkp->pJ1[93]		= 1.5040682e-001;
 pJLkp->pJ2[93]		= -1.8345159e-002;
 pJLkp->pJ3[93]		= -1.5309476e-001;
 pJLkp->pJ4[93]		= -1.5302040e-002;
 pJLkp->pJ5[93]		= 1.4861064e-001;
 pJLkp->pJ6[93]		= 6.9738173e-002;
 pJLkp->pJ7[93]		= -1.1795650e-001;
 pJLkp->pJ8[93]		= -1.3022869e-001;
 pJLkp->pJ9[93]		= 4.1631996e-002;
 pJLkp->pJ0[94]		= -1.6148573e-002;
 pJLkp->pJ1[94]		= 1.5073354e-001;
 pJLkp->pJ2[94]		= 2.7071294e-002;
 pJLkp->pJ3[94]		= -1.4681016e-001;
 pJLkp->pJ4[94]		= -5.8986546e-002;
 pJLkp->pJ5[94]		= 1.2971261e-001;
 pJLkp->pJ6[94]		= 1.0598387e-001;
 pJLkp->pJ7[94]		= -8.3632669e-002;
 pJLkp->pJ8[94]		= -1.4840624e-001;
 pJLkp->pJ9[94]		= -2.3999327e-003;
 pJLkp->pJ0[95]		= -5.9734363e-002;
 pJLkp->pJ1[95]		= 1.3768225e-001;
 pJLkp->pJ2[95]		= 6.9604058e-002;
 pJLkp->pJ3[95]		= -1.2770317e-001;
 pJLkp->pJ4[95]		= -9.7067106e-002;
 pJLkp->pJ5[95]		= 9.9870308e-002;
 pJLkp->pJ6[95]		= 1.3286291e-001;
 pJLkp->pJ7[95]		= -4.2724968e-002;
 pJLkp->pJ8[95]		= -1.5430197e-001;
 pJLkp->pJ9[95]		= -4.5763615e-002;
 pJLkp->pJ0[96]		= -9.7546577e-002;
 pJLkp->pJ1[96]		= 1.1255306e-001;
 pJLkp->pJ2[96]		= 1.0552906e-001;
 pJLkp->pJ3[96]		= -9.7584396e-002;
 pJLkp->pJ4[96]		= -1.2629170e-001;
 pJLkp->pJ5[96]		= 6.1756963e-002;
 pJLkp->pJ6[96]		= 1.4819133e-001;
 pJLkp->pJ7[96]		= 1.3031787e-003;
 pJLkp->pJ8[96]		= -1.4754436e-001;
 pJLkp->pJ9[96]		= -8.5016293e-002;
 pJLkp->pJ0[97]		= -1.2629113e-001;
 pJLkp->pJ1[97]		= 7.7701358e-002;
 pJLkp->pJ2[97]		= 1.3174386e-001;
 pJLkp->pJ3[97]		= -5.9210992e-002;
 pJLkp->pJ4[97]		= -1.4420933e-001;
 pJLkp->pJ5[97]		= 1.8731180e-002;
 pJLkp->pJ6[97]		= 1.5078167e-001;
 pJLkp->pJ7[97]		= 4.4755841e-002;
 pJLkp->pJ8[97]		= -1.2879635e-001;
 pJLkp->pJ9[97]		= -1.1706256e-001;
 pJLkp->pJ0[98]		= -1.4351244e-001;
 pJLkp->pJ1[98]		= 3.6318502e-002;
 pJLkp->pJ2[98]		= 1.4603456e-001;
 pJLkp->pJ3[98]		= -1.6035924e-002;
 pJLkp->pJ4[98]		= -1.4937538e-001;
 pJLkp->pJ5[98]		= -2.5457236e-002;
 pJLkp->pJ6[98]		= 1.4053606e-001;
 pJLkp->pJ7[98]		= 8.4013927e-002;
 pJLkp->pJ8[98]		= -9.9695955e-002;
 pJLkp->pJ9[98]		= -1.3940057e-001;
 pJLkp->pJ0[99]		= -1.4780206e-001;
 pJLkp->pJ1[99]		= -7.8590730e-003;
 pJLkp->pJ2[99]		= 1.4726192e-001;
 pJLkp->pJ3[99]		= 2.8101261e-002;
 pJLkp->pJ4[99]		= -1.4146784e-001;
 pJLkp->pJ5[99]		= -6.6992763e-002;
 pJLkp->pJ6[99]		= 1.1844627e-001;
 pJLkp->pJ7[99]		= 1.1583659e-001;
 pJLkp->pJ8[99]		= -6.2717331e-002;
 pJLkp->pJ9[99]		= -1.5032034e-001;
 pJLkp->pJ0[100]	= -1.3891255e-001;
 pJLkp->pJ1[100]	= -5.0885906e-002;
 pJLkp->pJ2[100]	= 1.3545093e-001;
 pJLkp->pJ3[100]	= 6.9314603e-002;
 pJLkp->pJ4[100]	= -1.2130509e-001;
 pJLkp->pJ5[100]	= -1.0232279e-001;
 pJLkp->pJ6[100]	= 8.6501418e-002;
 pJLkp->pJ7[100]	= 1.3762949e-001;
 pJLkp->pJ8[100]	= -2.0963565e-002;
 pJLkp->pJ9[100]	= -1.4903823e-001;
 pJLkp->pJ0[101]	= -1.1776753e-001;
 pJLkp->pJ1[101]	= -8.8958638e-002;
 pJLkp->pJ2[101]	= 1.1177705e-001;
 pJLkp->pJ3[101]	= 1.0401279e-001;
 pJLkp->pJ4[101]	= -9.0764368e-002;
 pJLkp->pJ5[101]	= -1.2846110e-001;
 pJLkp->pJ6[101]	= 4.7511472e-002;
 pJLkp->pJ7[101]	= 1.4765766e-001;
 pJLkp->pJ8[101]	= 2.2091463e-002;
 pJLkp->pJ9[101]	= -1.3575653e-001;
 pJLkp->pJ0[102]	= -8.6367984e-002;
 pJLkp->pJ1[102]	= -1.1875106e-001;
 pJLkp->pJ2[102]	= 7.8451246e-002;
 pJLkp->pJ3[102]	= 1.2921123e-001;
 pJLkp->pJ4[102]	= -5.2609000e-002;
 pJLkp->pJ5[102]	= -1.4324030e-001;
 pJLkp->pJ6[102]	= 4.8622353e-003;
 pJLkp->pJ7[102]	= 1.4518519e-001;
 pJLkp->pJ8[102]	= 6.2890853e-002;
 pJLkp->pJ9[102]	= -1.1164340e-001;

 return (NO_JLKP_ERRORS);
}

int			Delete_Jnlookup		(Jn_Lookup *pJLkp)
{
 pJLkp->dx		= 0.0;
 pJLkp->nmax	= 0;
 free (pJLkp->pJ0);
 free (pJLkp->pJ1);
 free (pJLkp->pJ2);
 free (pJLkp->pJ3);
 free (pJLkp->pJ4);
 free (pJLkp->pJ5);
 free (pJLkp->pJ6);
 free (pJLkp->pJ7);
 free (pJLkp->pJ8);
 free (pJLkp->pJ9);
 return (NO_JLKP_ERRORS);
}

int	Jlookup		(double x, int Nmax, double *pJ, Jn_Lookup *pJLkp)
{
 const double	b		= 0.63661977236758;
 const double	pi4		= 0.78539816339745;
 int			n;
 int			m;
 double			ax	= fabs(x);
 double			sbax, px, qx, arg;
 double			xm;
 double			dn;
 double			twoxinv;
 double			*pJarray;

 if (Nmax >9) {
  Nmax = 9;
 }
 if (ax > FLT_EPSILON) {
  m	= (int) (ax/pJLkp->dx);
  if (m>pJLkp->nmax-2) {
   /******************************************************************/
   /* Use asymptotic form for J0, and J1 and recurrence for J2 -> Jn */
   /******************************************************************/
   sbax		= sqrt(b/ax);
   for (n=0; n<=1; n++) {
    dn		= (double) n;
    px		= 1.0-(dn-1.0)*(dn-9.0)/(128.0*ax*ax);
    qx		= (dn-1.0)/(8.0*ax)-(dn-1.0)*(dn-9.0)*(dn-25.0)/(3072.0*ax*ax*ax);
    arg		= ax-(2.0*dn+1.0)*pi4;
    pJ[n]	= sbax*(px*cos(arg)-qx*sin(arg));
   }
   if (x < 0.0) {
    pJ[1]	= -pJ[1];
   }
   twoxinv	= 2.0/x;
   for (n=2; n<=Nmax; n++) {
    pJ[n]	= twoxinv*(n-1)*pJ[n-1] - pJ[n-2];
   }
  } else {
   /**********************************/
   /* Use interpolation for J0 -> Jn */
   /**********************************/
    xm		 = m*pJLkp->dx;
    arg		 = (ax-xm)/(2.0*pJLkp->dx);
    m		+= 2;
	for (n=0; n<=Nmax; n++) {
	 pJarray	= pJLkp->pJ[n];
	 pJ[n]		= pJarray[m]+arg*(pJarray[m+1]-pJarray[m-1]
				+ 0.5*arg*(pJarray[m+2]+pJarray[m-2]-2.0*pJarray[m]));
	}
    if (x < 0.0) {
	 for (n=1; n<=Nmax; n+=2) {
      pJ[n]	= -pJ[n];
	 }
    }
  }
 } else {
  /********************/
  /* Argument is zero */
  /********************/
  pJ[0]	= 1.0;
  for (n=1; n<=Nmax; n++) {
   pJ[n]	= 0.0;
  }
 }
 return (NO_JLKP_ERRORS);
}
